home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 22 / CU Amiga Magazine's Super CD-ROM 22 (1998)(EMAP Images)(GB)[!][issue 1998-05].iso / PowerPC / Programming / PPCSmallEiffel / bin_c / pretty3.c < prev    next >
Encoding:
C/C++ Source or Header  |  1998-01-16  |  3.0 KB  |  177 lines
  1. /*
  2. -- ANSI C code generated by :
  3. -- SmallEiffel The GNU Eiffel Compiler -- Release (- 0.82)      --
  4. -- Copyright (C), 1994-98 - LORIA - UHP - CRIN - INRIA - FRANCE --
  5. -- Dominique COLNET and Suzanne COLLIN -    colnet@loria.fr     --
  6. --                 http://www.loria.fr/SmallEiffel              --
  7. */
  8. #include "pretty.h"
  9. void r822clear_all(T822 C,int a1){
  10. int _i=0;
  11. T0* _v=NULL;
  12. _i=a1;
  13. while (!((_i)<(0))) {
  14. (C)[_i]=(_v);
  15. _i=(_i)-(1);
  16. }
  17. }
  18. void r822set_all_with(T822 C,T0* a1,int a2){
  19. int _i=0;
  20. _i=a2;
  21. while (!((_i)<(0))) {
  22. (C)[_i]=(a1);
  23. _i=(_i)-(1);
  24. }
  25. }
  26. void r822copy_from(T822 C,T822 a1,int a2){
  27. int _i=0;
  28. _i=a2;
  29. while (!((_i)<(0))) {
  30. (C)[_i]=((a1)[_i]);
  31. _i=(_i)-(1);
  32. }
  33. }
  34. T822 r822realloc(T822 C,int a1,int a2){
  35. T822 R=NULL;
  36. R=calloc(a2,sizeof(T0*));
  37. r822copy_from(R,C,(a1)-(1));
  38. return R;
  39. }
  40. void r304copy_from(T304 C,T304 a1,int a2){
  41. int _i=0;
  42. _i=a2;
  43. while (!((_i)<(0))) {
  44. (C)[_i]=((a1)[_i]);
  45. _i=(_i)-(1);
  46. }
  47. }
  48. T304 r304realloc(T304 C,int a1,int a2){
  49. T304 R=NULL;
  50. R=calloc(a2,sizeof(T0*));
  51. r304copy_from(R,C,(a1)-(1));
  52. return R;
  53. }
  54. void r113set_all_with(T113 C,T0* a1,int a2){
  55. int _i=0;
  56. _i=a2;
  57. while (!((_i)<(0))) {
  58. (C)[_i]=(a1);
  59. _i=(_i)-(1);
  60. }
  61. }
  62. int r113fast_index_of(T113 C,T0* a1,int a2){
  63. int R=0;
  64. while (!(((R)>(a2))||((a1)==((void*)((C)[R]))))) {
  65. R=(R)+(1);
  66. }
  67. return R;
  68. }
  69. void r113copy_from(T113 C,T113 a1,int a2){
  70. int _i=0;
  71. _i=a2;
  72. while (!((_i)<(0))) {
  73. (C)[_i]=((a1)[_i]);
  74. _i=(_i)-(1);
  75. }
  76. }
  77. T113 r113realloc(T113 C,int a1,int a2){
  78. T113 R=NULL;
  79. R=calloc(a2,sizeof(T0*));
  80. r113copy_from(R,C,(a1)-(1));
  81. return R;
  82. }
  83. void r354set_all_with(T354 C,T0* a1,int a2){
  84. int _i=0;
  85. _i=a2;
  86. while (!((_i)<(0))) {
  87. (C)[_i]=(a1);
  88. _i=(_i)-(1);
  89. }
  90. }
  91. void r654copy_from(T654 C,T654 a1,int a2){
  92. int _i=0;
  93. _i=a2;
  94. while (!((_i)<(0))) {
  95. (C)[_i]=((a1)[_i]);
  96. _i=(_i)-(1);
  97. }
  98. }
  99. T654 r654realloc(T654 C,int a1,int a2){
  100. T654 R=NULL;
  101. R=calloc(a2,sizeof(T0*));
  102. r654copy_from(R,C,(a1)-(1));
  103. return R;
  104. }
  105. void r586copy_from(T586 C,T586 a1,int a2){
  106. int _i=0;
  107. _i=a2;
  108. while (!((_i)<(0))) {
  109. (C)[_i]=((a1)[_i]);
  110. _i=(_i)-(1);
  111. }
  112. }
  113. T586 r586realloc(T586 C,int a1,int a2){
  114. T586 R=NULL;
  115. R=calloc(a2,sizeof(T0*));
  116. r586copy_from(R,C,(a1)-(1));
  117. return R;
  118. }
  119. void r973copy_from(T973 C,T973 a1,int a2){
  120. int _i=0;
  121. _i=a2;
  122. while (!((_i)<(0))) {
  123. (C)[_i]=((a1)[_i]);
  124. _i=(_i)-(1);
  125. }
  126. }
  127. T973 r973realloc(T973 C,int a1,int a2){
  128. T973 R=NULL;
  129. R=calloc(a2,sizeof(T0*));
  130. r973copy_from(R,C,(a1)-(1));
  131. return R;
  132. }
  133. void r884set_all_with(T884 C,T0* a1,int a2){
  134. int _i=0;
  135. _i=a2;
  136. while (!((_i)<(0))) {
  137. (C)[_i]=(a1);
  138. _i=(_i)-(1);
  139. }
  140. }
  141. int r884fast_index_of(T884 C,T0* a1,int a2){
  142. int R=0;
  143. while (!(((R)>(a2))||((a1)==((void*)((C)[R]))))) {
  144. R=(R)+(1);
  145. }
  146. return R;
  147. }
  148. void r884copy_from(T884 C,T884 a1,int a2){
  149. int _i=0;
  150. _i=a2;
  151. while (!((_i)<(0))) {
  152. (C)[_i]=((a1)[_i]);
  153. _i=(_i)-(1);
  154. }
  155. }
  156. T884 r884realloc(T884 C,int a1,int a2){
  157. T884 R=NULL;
  158. R=calloc(a2,sizeof(T0*));
  159. r884copy_from(R,C,(a1)-(1));
  160. return R;
  161. }
  162. void r692copy_from(T692 C,T692 a1,int a2){
  163. int _i=0;
  164. _i=a2;
  165. while (!((_i)<(0))) {
  166. (C)[_i]=((a1)[_i]);
  167. _i=(_i)-(1);
  168. }
  169. }
  170. T692 r692realloc(T692 C,int a1,int a2){
  171. T692 R=NULL;
  172. R=calloc(a2,sizeof(T0*));
  173. r692copy_from(R,C,(a1)-(1));
  174. return R;
  175. }
  176.  
  177.